home *** CD-ROM | disk | FTP | other *** search
/ More Anime Pin-Up Beauties / More Anime Pin-Up Beauties.iso / pc / east / gpx05.dir / 00202_Script_202 < prev    next >
Text File  |  1998-06-22  |  3KB  |  161 lines
  1. -- For EXAM
  2. -- ++++++++++++++++++++++++++++++++ initialize of EXAMINATION
  3. on initEXM
  4.     global gPathItem
  5.     global gEXMscore
  6.     global gEXMnum
  7.  
  8.     cursor 4
  9.     put 0 into gEXMscore
  10.     put 1 into gEXMnum
  11.  
  12.     chgScene("PL-000", the frame + 1, gPathItem & "BGC00")
  13.     -- Wait Slider
  14.     puppetSprite 22,TRUE
  15.     set the locV of sprite 22 to 120
  16.     upDateStage
  17.  
  18.     dispQQQ()
  19.  
  20.     aiffSound(6)
  21.  
  22.     startTimer
  23.     cursor -1
  24.  
  25. -- ++++++++++++++++++++++++++++++++ termination of EXAM BOX(MENU)
  26. on termEXM
  27.  
  28.     cursor 4
  29.  
  30.     clrPicture("EXM.QQQ")
  31.  
  32.     repeat with n = 2 to 24
  33.         puppetSprite n, FALSE
  34.     end repeat
  35.  
  36.     go to frame "000"
  37.  
  38. -- ++++++++++++++++++++++++++++++++ display Question of EXAM BOX
  39. on dispQQQ
  40.     global gPathItem
  41.     global gEXMnum
  42.  
  43.  
  44.     cursor 4
  45.     if gEXMnum < 10 then
  46.         getPicture(the number of cast "EXM.QQQ" ,gPathItem & "BGC0" & string(gEXMnum))
  47.     else
  48.         getPicture(the number of cast "EXM.QQQ" ,gPathItem & "BGC" & string(gEXMnum))
  49.     end if
  50.     cursor -1
  51.  
  52. -- ++++++++++++++++++++++++++++++++ display SCORE of EXAM BOX(0-90)
  53. on dispSCORE
  54.     global gPathItem
  55.     global gEXMscore
  56.  
  57.     cursor 4
  58.  
  59.     if gEXMscore < 10 then
  60.         getPicture(the number of cast "EXM.QQQ" ,gPathItem & "BGD0" & string(gEXMscore))
  61.     else
  62.         getPicture(the number of cast "EXM.QQQ" ,gPathItem & "BGD" & string(gEXMscore))
  63.     end if
  64.  
  65.     cursor -1
  66.  
  67.     aiffSound(2)
  68.  
  69. -- ++++++++++++++++++++++++++++++++ set position of  TIMER gage
  70. on placeTimGage2
  71.  
  72.     put (the timer / 15) into vPos
  73.  
  74.     if vPos > 320 then
  75.         chkEXM()
  76.         exit
  77.     end if
  78.  
  79.     puppetSprite 22,TRUE
  80.     set the locV of sprite 22 to (120 + vPos)
  81.  
  82.  
  83.  
  84. -- ++++++++++++++++++++++++++++++++ Answer Box clicked
  85. on clickANS vN
  86.     global gEXMnum
  87.     global gEXMscore
  88.  
  89.     put item vN of (line gEXMnum of field "EXM.LIST") into vA
  90.  
  91.     if vA = "0" then
  92.         exit
  93.     end if
  94.  
  95.     if vA = "1" then
  96.         put gEXMscore + 1 into gEXMscore
  97.         cursor 4
  98.         puppetSound "PING"
  99.         upDateStage
  100.     else
  101.         cursor 4
  102.         puppetSound "BUZ"
  103.         upDateStage
  104.     end if
  105.  
  106.     put the timer + 60 into vT
  107.  
  108.     repeat while (the timer < vT)
  109.             --
  110.     end repeat
  111.     cursor -1
  112.  
  113.     if gEXMnum < 10 then
  114.         put gEXMnum + 1 into gEXMnum
  115.         dispQQQ()      
  116.         exit
  117.     else
  118.         chkEXM()
  119.     end if
  120.  
  121.  
  122. -- ++++++++++++++++++++++++++++++++ check SCORE of EXAM BOX(time up or answed)
  123. on chkEXM
  124.     global gEXMscore
  125.  
  126.     cursor 4
  127.     repeat with n = 2 to 24
  128.         puppetSprite n, FALSE
  129.     end repeat
  130.  
  131.     if gEXMscore < 10 then
  132.         go to frame "EXMNG"
  133.         exit
  134.     else
  135.         go to frame "EXM100"
  136.         exit
  137.     end if
  138.  
  139. -- ++++++++++++++++++++++++++++++++ initialize of complete
  140. on completeEXMinit
  141.     global gPathItem
  142.  
  143.     cursor 4
  144.  
  145.     puppetSound "FAN"
  146.     upDateStage
  147.     startTimer
  148.     repeat while the timer < 300
  149.         --
  150.     end repeat
  151.  
  152.     chgScene("PL-000", the frame + 1, gPathItem & "BGD10")
  153.  
  154.     cursor -1
  155.  
  156. on completeEXMloop
  157.  
  158.     if the timer < 300 then
  159.         go to the frame
  160.     end if
  161.